Option Strict Off
Option Explicit On

Imports BCS.MotorActivacion.Base

Public NotInheritable Class FormatoArchivos
    Inherits Lista

    Public ReadOnly Property Item() As FormatoArchivo
        Get
            Return m_Item
        End Get
    End Property

    Public Sub AddItem(ByVal NewVal As FormatoArchivo)
        AddItem(NewVal, True)
    End Sub

    Public Sub AddItem(ByVal NewVal As FormatoArchivo, ByVal Refresh As Boolean)
        If Not m_List.Contains(NewVal.Key) Then
            m_List.Add(NewVal)
            If Refresh Then
                toRefresh()
            End If
        End If
    End Sub

    Public Function GetItem(ByVal Key As String) As FormatoArchivo
        If m_List.Contains(Key) Then
            Return m_List.Item(Key)
        Else
            Return New FormatoArchivo
        End If
    End Function
End Class